Option Explicit

Public Sub SummeBereich_Sicher()
    Dim c As Range
    Dim summe As Double
    Dim ignoriert As Long
    
    summe = 0
    ignoriert = 0
    
    For Each c In Range("A1:A10")
        If IsNumeric(c.Value) And Not IsEmpty(c.Value) Then
            summe = summe + CDbl(c.Value)
        ElseIf Not IsEmpty(c.Value) Then
            ignoriert = ignoriert + 1
        End If
    Next c
    
    Range("B1").Value = summe
    
    If ignoriert > 0 Then
        MsgBox ignoriert & " Zelle(n) wurden ignoriert (keine Zahl).", vbInformation, "Hinweis"
    End If
End Sub
